function main()

r=10*rand(5)
acgt='ACGT';
dna=acgt(ceil(4*rand(100,20)));
dnacelluint8={};
for i=1:size(dna,2),
	dnacelluint8{i}=uint8(dna(:,i))';
end

%inout(r)
%inout(int32(r))
%inout(int16(r))
%inout(uint16(r))
%inout(single(r))
%inout(sparse(r))
%inout_char(uint8(dna), 'DNA')
%keyboard
%inout_char(dnacelluint8, 'DNA')
in={'664646656451436446165665652644642666226234644466325264346566524323616223664466446223562541645446656362666625365226166556152646626234254451156462162324445415235226522622626165522556663514636522641652421645565152225556652226466666663551642523352536566462524225653642626546466662324652645534252522236622623564565655656211246535644654235552463522156516432625626142615225656626664252232454622225666165654265452166215644413524522426625444652165445545466436566625626226555525652565613142152266426263266253664654635652255652415662242322346231256621145626256641513366226526642552645666643666224562436166162234646232665434122546566642566355225426644566566464366426465366664213351426666465444666412536262423114562665226255346664262425455213646262614125225456542262236254453655651565222153253656625516662462246635222446626266665541265564654355561524211222152521444512622223214141151111444544544443254444242142124154114155521552414524215251121442631522221423643265545142412222614445225512245311242541441141452541512123455125'};
inout_char(in, 'CUBE');

function out=inout(in)
sg('set_features', 'TRAIN', in);
out=sg('get_features', 'TRAIN');
out=max(max(abs(out-in)));
%keyboard

function out=inout_char(in, alpha)
sg('set_features', 'TRAIN', in, alpha);
out=sg('get_features', 'TRAIN')
%keyboard


%a=([1, 5.343, 3; 0, 7, 8.200000332; 2, 0, 4; 0, 0, 0])
%a=[1, 5.343, 3; 0, 7, 8.200000332; 2, 0, 4; 0, 0, 0]
%a=sparse(a)
%a=['abc'; 'def'; 'ghi'; 'jkl']
%a=uint16([1.3, 3, 6.4, 7.1, -0.4])
%a=['t', 'a', 'c', 'h']
%a=['t', 'a', 'c', 'h'; 'd','u', ' ', ' ']
%b=sg('test', a)
%quit
